home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / totdem.arc / DEMBR2.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-10  |  564b  |  24 lines
  1. Program DemoBrowseArray;
  2.  
  3. Uses DOS,CRT,
  4.      totFAST,totLIST, totSTR;
  5.  
  6. var
  7.    BWin: BrowseArrayOBJ;
  8.    StringList: array[1..26] of string[100];
  9.    I : integer;
  10. begin
  11.    for I := 1 to 26 do  {first assign something to the string array}
  12.       StringList[I] := 'Line '+IntToStr(I)+': '+replicate(80,char(I+64));
  13.    Screen.Clear(white,'░'); {paint the screen}
  14.    with BWin do
  15.    begin
  16.       Init;
  17.       AssignList(StringList,26,100);
  18.       Win^.SetSize(30,5,50,15,2);
  19.       Win^.SetTitle('Array Browse Demo');
  20.       Go;
  21.       Done;
  22.    end;
  23. end.
  24.